Những câu hỏi liên quan
hùng tín trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 11:37

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,j,m;

int main()

{

cin>>n>>m;

for (i=1; i<=n; i++)

{

for (j=1; j<=m; j++)

{

if (i==1 || j==1|| i==n|| j==m) cout<<"*";

else cout<<" ";

}

cout<<endl;

}

return 0;

}

Bình luận (0)
Kỳ Duyên Võ
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 15:47

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"Chu vi la: "<<fixed<<setprecision(2)<<(a+b)*2<<endl;

cout<<"Dien tich la: "<<fixed<<setprecision(2)<<a*b;

return 0;

}

Bình luận (0)
Lê Vũ Khánh Thy
Xem chi tiết
bao gia
Xem chi tiết
Phía sau một cô gái
22 tháng 3 2023 lúc 19:38

a = int(input("Nhập chiều dài: "))

b = int(input("Nhập chiều rộng: "))

chu_vi = 2*(a+b)

dien_tich = a*b

print(f"Chu vi hình chữ nhật là: {chu_vi}")

print(f"Diện tích hình chữ nhật là: {dien_tich}")

Bình luận (0)
Yến Nhi
Xem chi tiết
Nguyễn Phan Bảo Tin
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:17

a) 

uses crt;

var a:array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:18

b) 

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Bình luận (0)
Phan Thị Chuyên
Xem chi tiết
kazatama
1 tháng 3 2023 lúc 20:56

câu 1 

program hieu_thuong;

uses crt;

var a,b,h,t:real;

begin

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

if a>=b then h:=a-b else h:=b-a;

t:=a/b;

writeln('hieu cua hai so ',a,'',b,' la ',h);

writeln('thuong cua hai so ',a,'',b,' la ',t);

readln;

end.

câu 2

program chuvi_dientich;

uses crt;

var cv,dt,d,r:real;

begin

write('nhap chieu dai d:');readln(d);

write('nhap chieu rong r:');readln(r);

cv:=( d + r ) * 2 ;

dt:= d * r ;

writeln('chu vi thua ruong la : ',cv);

writeln('dien tich thua ruong la : ',dt);

readln;

end.

Bình luận (1)
Thanh Khương
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 22:07

a: Input: a

Output: a2

Bình luận (0)
Tiên Tiên
Xem chi tiết
Nguyen Hung
2 tháng 5 2021 lúc 20:06

Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

 

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.          

Bình luận (0)
Bùi Anh Tuấn
2 tháng 5 2021 lúc 20:16

Bình luận (2)
Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:25

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con--------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

write('Dai='); readln(a);

write('Rong='); readln(b);

ve(a,b);

readln;

end.

Bình luận (0)